home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / pack / xpk_Develop.lha / xpk_Develop / Include / Modula2 / XpkMasterL.def < prev    next >
Encoding:
Modula Definition  |  1998-11-09  |  2.0 KB  |  44 lines
  1. (*#-- BEGIN AutoRevision header, please do NOT edit!
  2. *
  3. * $VER: XpkMasterL.def 1.0 (27.01.98)
  4. * Auth: T.B. <tonyiommi@geocities.com>
  5. *
  6. * Desc: LibCalls for xpkmaster 4.0 (27.12.96) by SDI
  7. * Reqs: AMIGA OS 2.0
  8. * Lang: MODULA-2
  9. * Comp: Cyclone © by M. Timmermans
  10. * 
  11. *-- END AutoRevision header --*)
  12.  
  13. DEFINITION MODULE XpkMasterL {"xpkmaster.library",4}; (*$ Implementation- *)
  14.  
  15. FROM SYSTEM IMPORT ADDRESS;
  16. FROM ExecD IMPORT LibraryPtr;
  17. FROM UtilityD IMPORT TagItemPtr;
  18. FROM XpkMasterD IMPORT FibPtr,StrPtr;
  19. IMPORT r:Reg;
  20.  
  21. CONST xpkMasterMinVersion=4;
  22.  xpkMasterName="xpkmaster.library";
  23.  
  24. VAR xpkMasterBase:LibraryPtr;
  25.  
  26. PROCEDURE Examine   (fib{r.A0}:FibPtr; tags{r.A1}:TagItemPtr):LONGINT;                CODE -24H;
  27. PROCEDURE Pack      (tags{r.A0}:TagItemPtr):LONGINT;                                  CODE -2AH;
  28. PROCEDURE Unpack    (tags{r.A0}:TagItemPtr):LONGINT;                                  CODE -30H;
  29. PROCEDURE Open      (xfh{r.A0}:FibPtr; tags{r.A1}:TagItemPtr):LONGINT;                CODE -36H;
  30. PROCEDURE Read      (xfh{r.A0}:FibPtr; buf{r.A1}:StrPtr; len{r.D0}:LONGINT):LONGINT;  CODE -3CH;
  31. PROCEDURE Write     (xfh{r.A0}:FibPtr; buf{r.A1}:StrPtr; ulen{r.D0}:LONGINT):LONGINT; CODE -42H;
  32. PROCEDURE Seek      (xfh{r.A0}:FibPtr; dist{r.D0},mode{r.D1}:LONGINT):LONGINT;        CODE -48H;
  33. PROCEDURE Close     (xfh{r.A0}:FibPtr):LONGINT;                                       CODE -4EH;
  34. PROCEDURE Query     (tags{r.A0}:TagItemPtr):LONGINT;                                  CODE -54H;
  35.  
  36. (* --- here start version 4 functions --- *)
  37. PROCEDURE AllocObject   (type{r.D0}:LONGINT; tags{r.A0}:TagItemPtr):ADDRESS;          CODE -5AH;
  38. PROCEDURE FreeObject    (type{r.D0}:LONGINT; object{r.A0}:ADDRESS);                   CODE -60H;
  39. PROCEDURE PrintFault    (code{r.D0}:LONGINT; header{r.A0}:StrPtr):BOOLEAN;            CODE -66H;
  40. PROCEDURE Fault         (code{r.D0}:LONGINT; header{r.A0},buffer{r.A1}:StrPtr; size{r.D1}:LONGINT):LONGINT; CODE -6CH;
  41. PROCEDURE PassRequest   (tags{r.A0}:TagItemPtr):LONGINT;                              CODE -72H;
  42.  
  43. END XpkMasterL.
  44.